home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dopus / Cuido.lha / Cuido / Cuido.rexx < prev   
OS/2 REXX Batch file  |  1998-02-22  |  640b  |  31 lines
  1. /*
  2. **        $VER: Cuido 1.1 (22.02.98) Last Change: 17:09:01 (1998-02-22)
  3. **        Author: Matthew Gregan (kinetik@caverock.net.nz)
  4. */
  5.  
  6. Parse Arg Args
  7. Options Results
  8.  
  9. NumArgs = 0
  10.  
  11. Do Until Args = ''
  12.     NumArgs = NumArgs + 1
  13.     Args.NumArgs = Word(Args,1)
  14.     If Left(Args.NumArgs,1) = '"' Then Do
  15.         Args.NumArgs = SubStr(Args,2,Pos('"',Args,2)-2)
  16.         Args = Strip(SubStr(Args,Pos('"',Args,2)+1))
  17.     End
  18.     Else Do
  19.         Args = SubWord(Args,2)
  20.     End
  21.     ParsePath()
  22.     Address DOPUS.1 'Lister New 'Args.NumArgs
  23. End
  24. Exit 0
  25.  
  26. /* Function: Expand and parse the path */
  27. ParsePath:
  28.     OldCurDir = Pragma('D',Args.NumArgs)
  29.     Args.NumArgs = Pragma('D',OldCurDir)
  30.     Return Args.NumArgs
  31.